home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbsecex / secex2.frm < prev    next >
Text File  |  1995-05-08  |  2KB  |  90 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "SECURITY EXAMPLE"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   4605
  9.    ControlBox      =   0   'False
  10.    Height          =   4425
  11.    Left            =   1035
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4020
  16.    ScaleWidth      =   4605
  17.    Top             =   1140
  18.    Width           =   4725
  19.    Begin CommandButton Command1 
  20.       Caption         =   "LET ME CONTINUE"
  21.       Height          =   495
  22.       Left            =   1200
  23.       TabIndex        =   6
  24.       Top             =   2400
  25.       Width           =   2175
  26.    End
  27.    Begin TextBox Text3 
  28.       Height          =   375
  29.       Left            =   1920
  30.       TabIndex        =   3
  31.       Top             =   480
  32.       Width           =   2175
  33.    End
  34.    Begin TextBox Text2 
  35.       Height          =   495
  36.       Left            =   1440
  37.       TabIndex        =   1
  38.       Top             =   1800
  39.       Visible         =   0   'False
  40.       Width           =   2655
  41.    End
  42.    Begin TextBox Text1 
  43.       Height          =   495
  44.       Left            =   1440
  45.       TabIndex        =   0
  46.       Top             =   1080
  47.       Width           =   2655
  48.    End
  49.    Begin Label Label3 
  50.       Caption         =   "INVISIBLE"
  51.       Height          =   375
  52.       Left            =   120
  53.       TabIndex        =   5
  54.       Top             =   1920
  55.       Visible         =   0   'False
  56.       Width           =   1095
  57.    End
  58.    Begin Label Label2 
  59.       Caption         =   "REFERNECE NUMBER"
  60.       Height          =   375
  61.       Left            =   120
  62.       TabIndex        =   4
  63.       Top             =   480
  64.       Width           =   1695
  65.    End
  66.    Begin Label Label1 
  67.       Caption         =   "TYPE IN PASSWORD"
  68.       Height          =   495
  69.       Left            =   120
  70.       TabIndex        =   2
  71.       Top             =   1080
  72.       Width           =   1215
  73.    End
  74. End
  75. Sub Command1_Click ()
  76.  
  77.     If TEXT1.Text = TEXT2.Text Then
  78.     
  79.     End
  80.     
  81.     Else
  82.         
  83.         MsgBox ("COPY PROTECTION FAILED")
  84.         End
  85.     
  86.     End If
  87.  
  88. End Sub
  89.  
  90.